home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00887_TH-bt chpt.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.3 KB  |  57 lines
  1. on mouseDown
  2.   global g1erSprLoc, gMaxBoutons, gNumSpr
  3.   curseur(2)
  4.   repeat with i = g1erSprLoc + 3 to gMaxBoutons
  5.     if rollOver(i) then
  6.       set gNumSpr to i
  7.       exit repeat
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   global g1erSprLoc, gMaxBoutons, gNumSpr, gSurvolPrec
  14.   curseur(1)
  15.   set monNumSpr to -2
  16.   repeat with i = g1erSprLoc + 3 to gMaxBoutons
  17.     if rollOver(i) then
  18.       set monNumSpr to i
  19.       exit repeat
  20.     end if
  21.   end repeat
  22.   if monNumSpr = gNumSpr then
  23.     put ">>" && gNumSpr
  24.     if gNumSpr = 25 then
  25.       MouseClick(gNumSpr - 23)
  26.     else
  27.       beep()
  28.       set gSurvolPrec to -1
  29.     end if
  30.   else
  31.     pass()
  32.   end if
  33. end
  34.  
  35. on MouseClick monSpr
  36.   global gCDpath, gPage, gMaxBoutons, g1erSprLoc, gSurvolPrec, gLocLabel, gSensTrans, gVersion
  37.   set gPage to monSpr
  38.   set the fileName of cast "FICHE TH" to gVersion & "PT" & gPage & ".PIC"
  39.   go(the frame)
  40.   set the visible of sprite 44 to 1
  41.   set the visible of sprite g1erSprLoc to 1
  42.   set the visible of sprite (g1erSprLoc + 1) to 1
  43.   if gPage <> 14 then
  44.     set the visible of sprite (g1erSprLoc + 2) to 1
  45.   else
  46.     set the visible of sprite (g1erSprLoc + 2) to 0
  47.   end if
  48.   repeat with i = g1erSprLoc + 3 to gMaxBoutons
  49.     set the visible of sprite i to 0
  50.   end repeat
  51.   go(the frame)
  52.   set gLocLabel to "TH:RN2"
  53.   set gSensTrans to 1
  54.   set gSurvolPrec to -1
  55.   curseur(-1)
  56. end
  57.